home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ AOL Sound 02.xpl < prev    next >
Text File  |  2002-10-29  |  2KB  |  70 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="5"
  4. "UIPATH 1"="Internet\America Online"
  5. "UIPATH 2"="Program Options\Other Programs\America Online"
  6. "NAME"="Default Sound #2"
  7. "LANGUAGE"="VBScript"
  8. "VERSION"="1.11"
  9. "TEXT 1"="#1 BuddyOut"
  10. "TEXT 2"="#2 Drop"
  11. "TEXT 3"="#3 Instant Mes."
  12. "TEXT 4"="#4 GotPics"
  13. "TEXT 5"="#5 Inactive"
  14. "DESCRIPTION 1"="You may change the sound to suit your preference. Use the full path and file name for your new preference."
  15. "DESCRIPTION 2"="The default value are:"
  16. "DESCRIPTION 3"="#1: buddyout.wav"
  17. "DESCRIPTION 4"="#2: drop.wav"
  18. "DESCRIPTION 5"="#3: im.wav",
  19. "DESCRIPTION 6"="#4: gotpics.wav"
  20. "DESCRIPTION 7"="#5: inactive.wav"
  21. "DESCRIPTION 8"="If you don't want any sound, clear the fields."
  22. "AUTHOR"="Ojatex@aol.com"
  23. "CONTACTURL"="http://members.aol.com/ojatex/"
  24. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  25. "COMMENT 1"=" "
  26. "COMMENT 2"="Hate AOL sounds? Then zip 'em & ship 'em!"
  27.  
  28.  
  29.  
  30. sPath="HKCU\AppEvents\Schemes\Apps\Waol\"
  31.  
  32. sV1="HKCU\AppEvents\Schemes\Apps\Waol\BuddyOut\.Current\@"
  33. sV2="HKCU\AppEvents\Schemes\Apps\Waol\Drop\.Current\@"
  34. sV3="HKCU\AppEvents\Schemes\Apps\Waol\IM\.Current\@"
  35. sV4="HKCU\AppEvents\Schemes\Apps\Waol\YGP\.Current\@"
  36. sV5="HKCU\AppEvents\Schemes\Apps\Waol\Inactivity45\.Current\@"
  37.  
  38. Sub Plugin_Initialize 
  39.  if RegPathExists(sPath) then
  40.     SetUIElement 1,RegReadValue(sV1)
  41.     SetUIElement 2,RegReadValue(sV2)
  42.     SetUIElement 3,RegReadValue(sV3)
  43.     SetUIElement 4,RegReadValue(sV4)
  44.     SetUIElement 5,RegReadValue(sV5)
  45.  else
  46.     Disable
  47.  end if
  48. End Sub
  49.  
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54.  
  55.  
  56. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  57.  Call RegWriteValue(sV1,GetUIElement(1),1)
  58.  Call RegWriteValue(sV2,GetUIElement(2),1)
  59.  Call RegWriteValue(sV3,GetUIElement(3),1)
  60.  Call RegWriteValue(sV4,GetUIElement(4),1)
  61.  Call RegWriteValue(sV5,GetUIElement(5),1)
  62. End Sub
  63.  
  64.  
  65. Sub Plugin_Terminate 
  66. End Sub
  67.  
  68.  
  69.  
  70.